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MODULE gencode2 
= BEGIN 


le¢ 
: Facility: Command Definition Utility, Table Generator Module 2 
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NT="V04-000" 
ESSING_MODE (EXTERNAL=GENERAL) ) 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
PRANSFERAEO NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
CORPORAT On NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


EPS E SASS L ATI TTT TTT ITT T TTT TTT TTI TTI STITT ITT IT Titi titirititirirririrriirirt 


Abstract: This module is one of a few modules that is responsible 


for generating the blocks that make up the DCL tables. 
The blocks are generated . traversing the intermediate 
roarecventan ten of the CLD file created by the parsing 
modules. 


It is recommended that you read over the CLIDEF.SDL file 
before reading this code. 


Environment: Standard CDU environment. 


Author: Paul C. Anagnostopoulos 
Creation: 12 January 1983 
Modifications: 


Library ‘sys$library:lib’; 
require ‘clitabdef'; 
require ‘cdureq'; 


APP P PPP PEEP PPT T TTT TTT TPP T STII ICI TTT StS TTT iT ili titi tiirirrrriririTrTT 


® 
® 
® 
* 
® 
® 
® 
® 
® 
* 
® 
® 
® 
* 
w 
® 
® 
® 
® 
® 
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| 
53 0789 ! TABLE OF CONTENTS 
. 54 0790 Sa eae = co - ee ee cm eee ee eee 
ee | 0791 
; 0735 forward routine 
;. OF ore cdu$generate_command: novalue, 
58 0794 cdu$generate_outputs_list, 
59 0795 cdu$generate_type: novalue; 
60 0796 
61 0797 ‘ 
62 0798 ‘ EXTERNAL REFERENCES 
63 0799 [. “T0=—=—_—c=TE>  ceibucenenansians 
64 800 
65 0801 external routine 
44 cdu$add_verb_name, 
08 cdu$generate_entity.. 
cdu$generate expression, 
cdu$lookup_child,— 
70 0806 cdu$report_semantic_error, 
71 0807 cli$present, 
72 80 Lib$get_vm, 
oP +404 Lookup_verb_type; 
75 0811 external y 
76 0812 cdu$gl_table: pointer; 
77 0813 
78 0814 global ; 
79 0815 clitype: byte; ! Temporary hack for ROUTINES. 


Se Se Se Ge Ge Ge Se Se Se Se Se Ge Ge Se Se Se Se Se Se Se Se Se Se Se ee See 
AAD 
OOno 
ooo oo Oo 
coco 
ooo 
ws 
ak kk ak kk ak kt tt 
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ee ee ee ee ae ee a ek ek ek el ek dd ad dd 
Se S a 


COOoooocooceoo 
C0 Co Od Co Co OS Co CO CO 
PAA AIUIUMIVIUIU 
DWONOULSWN—O 


0860 


'e4 


de 


expression 


! Begin by initial 
! don't depend on 

command cmd_b_type 
command(tcmd_b_subt 
command(cmd_w_flag 
command(cmd_w_tro_ 


command cad + per’ 
command(cmd_b_hand 


command( cmd vmine 
clitype = (Tf cli 


command(cmd_b_verb 
command(cmd_w_name 


PROPIPOPIPOPOPPOPSPOPININININPIPININPINININININININIAINININNNNNNNNNNNNNNID 3 3 oo oo oo 
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Description: This routine is called to generate a command block which 


fines a verb or a syntax change. 


: ref node; 


Additional blocks 


may be generated and chained off the command block. 
i Parameters: top_node By reference, the node that represents the 
verb or syntax change definition. 
Returns: Nothing. 
Notes: 
71 pease: cdu$generate_command(top_node: ref node) : novalue 
local 

status: long, 

doing_verb: boolean, 

command: pointer, 

verb_name_dsc: descriptor, 

variable_ptr: pointer, 

child: ref node, 

preneenrse ref node, 

ast_parm: pointer, 

qual_counter: long initial(0), 

Last qual: pointer, aes 

disallow_count: long initial (0) 

outputs_node: ref node initial (6), 


! Set a flag to say whether this is a verb definition or not. 

doing_verb = .top_node[node_w_type] eqlu node_k_define_verb; 

! Allocate enough space to contain the largest possible command block. 
allocate_largest_table_block(cmd_k_length + cmd_k_max_name + cmd _k_max_ image + 


cmd_k_max_outputs * Cmd_Kk_max_prefix, command 


the 
J =_block_k_command; 


termediate representation. 


hg the command block. This includes any fields that 
n 


ype] = (if Tdoing_verb then cmd_k_verb else cmd_k_syntax); 


count) = 3; 


sJ] = command(cmd_|_quals] = command(cmd_\_disallow] = 0; 


ler] = cmd_k_none; 
arm) = command(cmd_v pereere? = 0 
present(dtext('CLI-MCR')) then ve 


typ] = lookup_verB_type(verB_name 
5 connandi cid u. Taxco) = cOmman 


° 
C. 


af 


k_mcr else vec_k del) 


l); 
but (6. descriptor verb name_dsc,.top_node(node_b_text_léngth], top_node[node_t_text]); 


sc); 
cmd_w_outputs] = command(cmd_w_prefix] = 0; 


' Set up to add information to the variable portion of the block. 


3 
(3) 


—_—_— CU 


x NCODE2 
‘Vos 
; 3 0873 
9 ie: 
40 875 
41 B378 
eg 087 
4 + 144 
aa 087 
45 0880 
46 0881 
47 peg 
48 088 
49 0884 
50 0885 
51 0886 
26 0887 
5 0888 
54 0889 
55 0890 
56 0891 
57 089 
58 089 
59 0894 
60 0895 
61 0896 
6¢ 0897 
6 0898 


Be Se Ge Se Se Se Be Se Se Se Se Se Se Se Se Se Se Ge Bs Ge Se Se Se Ge Ge Se Ss Ge FH Ge Se Se Se Ge Se Ss Se Ss Se SH Se Se Se FHSS SHE Se SH Ss SH Se See 
a a a a a a ek a a at = a 2 2 SH Ss SS ss SS ss 2 a Ss ss 2s SS SS SY SS 


P 

P 

P 

P 
64 P 0899 
65 P 0900 
66 P 0901 
67 P 090 
68 P 090 
69 P 0904 
70 P 0905 
71 P 0906 
72 P 0907 
73 0908 
74 0909 
75 0910 
76 0911 
77 Bolg 
78 091 
79 0914 
a 0916 
Hi 0919 
8 0918 
84 0919 
85 0920 
86 0921 
87 0358 
88 09 
89 0924 
90 0925 


: 


PIPIPIMINPIDININININININI NWA WNAAAANNNANAAAIAANANIWA AAAI AANA AAAI AIAN 


variable_ptr = command(cmd_z_variable); 


! Process the verb name(s) or the ew" sx name. 


if penong, vere then ( 
oca 


) else 


work ptr: poinier, 
! The variable tapes: of the command block will contain an ASCIC 
! string of ASCIC strings, the first of which is the verb name and 
! the remainder the verb synonyms. Move in the verb name. 


ch$move(1+.top_node[node_b_text_length],top_node[node_b_text_length], .variable_ptr+1); 
work_ptr = .variable_ptr#1 + 1+ top_node(node_b_text_TengthJ; 


! Add the verb name to verb name table. 
cdu$add_verb_name(verb_name_dsc,.command) ; 

! Scan the children of this definition looking for synonym nodes. 
scan_children(top_node, child, 


! If we have a synonym node, then move in the synonym. 
! Also add the synonym to the verb name table. 


if .child(node_w type] eglu node_k_synonym then ( 
chSmove (T+ child node_b_text_lengthJ.childCnode_b_text_length], 
-wor r); 
work_ptr = work ptr + 1+.top_node[node_b_text_len 
build_descriptortverb_name_dsc,.child(node_b_text 


thi; 
Length}, child{node_t_text3); 
cdu$add_verb_name(verb_namé_dsc,.command) ; 


); 
FE; 


! Set the length of the overall ASCIC string. 
variable_ptr(0,0,8,0] = .work_ptr - .variable_ptr - 1; 


! The variable port ten of the command block will contain the syntax 
! mame as an ASCIC string. 


ch$move(1+.top_node[node_b_text_length],top_node[node_b_text_length], .variable_ptr); 


! Store the BRO of the variable part we just generated, and adjust the 
! variable portion pointer. 


command(cmd_w_name) = .variable ptr - .command: 
variable_ptr = .variable_ptr + T+. variable_ptr£0,0,8,0); 


1b-se $1984 23:37:28 VAX-11 Bliss-32 V4.0-74 Pa 4 
1278 08-1 3b $735 :55 DL EKSUMGMASTERLLDU SRCIGENCODE2.B32¢47° (3) 


10 
GENCODE2 1$-Se 1984 23:37:28 VAX-11 Bliss-32 V4.0-74 Pa 5 
| 960-000 12-8¢b-1984 #7:36:54 DI SKSVMSMASTERSCCDU, SRCIGENCODE2.B32¢1°° (4) 


H 136 09 § ! Now we scan the children of the top-level node in order to collect the 

3 1a? 03 5 ! various attributes of the command and place them in the command block. 

; 195 P 0929 scan_children(top_node,child, 

: 138 P 0950 

3 44 . 34 1 ! Case on the type of the child. 

; 199 P 09 § ase .child(node_w_type] from 0 to node_k_max_type of set 

3 sy . 0955 node_k_cliflags]: 

; 202 P 0936 ! For the CLIFLAGS clause, we scan the children, each of 

3 ati . aa ! which specifies a flag to be set. 

; 205 P 0939 scan_children(child,grandchild, 

; 206 P 0940 . 

; 207 P 0941 electoneu .grandchild[node_w_type] of set 

; 208 P S944 node_k_abbrevJ: commandicmd_v_abbrev] = true; 

; 209 P 094 node Tn ore gna command cnd_v..lorengn = true; 
; 210 P 0944 node_k_ immed]: command(cmd_v_immedJ = true; 

3 (ett P0945 2 node_k_mcrparse): command(cmd_v_mcrparse] = true; 
; si¢ P 0946 § Cnode_k_nostatd: command(cmd_v_nostat] = true; - , 
; 2y P 0947 Cotherwised: cdu$Sreport_semantic_error(msg(cdu$_igncliflag),1, 
> 214 P 0948 -grandchildEnode_w_iine)); 
3 29 P 0949 tes; 

> 216 P 0950 ); 

; 217 P 0951 : 

: 218 Pp 3454 Cnode_k_cliroutine): 

s 2 P 0953 2 

3s ¢20 P 0954 ! The CLIROUTINE clause specifies the name of an internal 

3 eer P 0955 !' CLI routine which is called to perform the command. Set 

; $$¢ . b328 ! the handler code accordingly. 

3 $i P 0958 : (command(cmd_b_handler] = cmd_k_cli; 

» €ee P 0959 2 . , 

; 226 P 0960 2 ! Copy the name of the CLI routine into the variable portion 

: 227 P 0961 ! of the command block. 

: 228 P 096 : 

; 229 P 096 command(cmd_w_image] = .variable_ptr - .command; 

: 230 P 0964 ch$move(1+.chTld(node_b_text_length],child(node_b_text_length], 
: 231 P 0965 -variable_ptr); ’ 

3 ese P 0966 variable_ptr = .variable_ptr + 1+.child[node_b_text_length];); 
; 233 P 0967 2 3 

3 te 4 S28 é Cnode_k_disallow): 

3 $33 P 0970 gj ! A DISALLOW clause specifies a boolean combination of 

3 gor P 0971 ! entities which are invalid. Generate code for the 

; 238 P 097 ! boolean expression. 

3 eo P 097 ‘ . 

3: 240 P 0974 2 torandéchite = ,child{node_lt_child); 

; $e) 4 ban2 cdu$generate_expression(.fop_node,.grandchild); 

; $05 P 0977 ! Propagate the TRO of the resulting expression block up 

3 see . 944 ! to the disallow node. 

3 “6 . 0980 child([node_l_code] = .grandchild{node_|_code]; 

3 268 P 0982 ! Set the flag saying that disallow info has been supplied. 
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49 983 

31 Bee command(cmd_v_disallows] = true; 

2 4] ! Count the number of DISALLOW statements for use below. 
354 0988 increment (disallow_count);); 

35 0989 a 

23 344 Cnode_k_nodisal lows): 

58 099 ! The NODISALLOWS clause specifies that this verb or syntax 
259 099 ! change has no disallow expressions. Set the flag saying 
500 0994 ! that the disallow info is relevent. The absence of a 

61 0995 ' disallows expression block will tell DCL that there are 

¢ 0996 ' none. 

6 0997 

64 0998 command(cmd_v_disallows] = true; 

6 0999 


Cnode_k_ image): 


oOnow 


: The IMAGE clause specifies the file spec of the image to 

! be run when the verb is entered. This is treated exactly 
. 1 a case above, except that the handler code 
! is erent. 


ANNO 

oo 
oooo 
wr 


(command(cmd_b_handler] = cmd_k_image; 


' Form the ent ity blocks into a List, with the TRO of the 
e 


! first one in the command block. 


06 
07 
08 command(cmd_w_Tmage] = .variablé_ptr - .command; 
7 09 ch$move(1+.child(node_b_text_length],child(node_b_text_length], 
76 10 : -variable_ptr); é 
As i) variable_ptr = .variable_ptr + 1+.child€node_b_text_length];); 
ie 4 1§ Cnode_k_outputs): 
81 15 ! Remember the address of the OUTPUTS node so we can process 
82 16 ! it later. 
83 17 
84 18 outputs_node = .child; 
85 19 
My] 3 Cnode_k_parameter]: ‘ 
88 3¢ ! We have a PARAMCTER clause, which defines a parameter. 
89 2 ' Generate an ont Sty block for it, which will tell us 
ss $e ! if the parameter is required. 
44 $$ (increment (command(cmd_v_maxparm)]); 
9 $s cdu$generate_entity(.child,.command(cmd_v_maxparm)) ; 
$3 
0 
He 
33 
34 
36 


VVVVVVVVVVVVVVVUVUVUVUVUUVUVUVVUVUVUVUVVUVUVUVUVUVVVVUVUVVUVUVUVUUUD 


ee a ee ee ek kd dd od dd 
SOOOSOCOCOSCOSOSOCOOSOCOOCOOOOOOOCOOOoCOCoOoOOoOoOoOOoOoOoOoOS 


RIPVPINIPIPNINININININININPYIPIPINYNIPIPYAINININININPINININININIPIPIPIPININPIPIPIPIPIPOPINIPIPINIPUPNIPYININIPPUPPD 


298 if .command(cmd_v_maxparm] eqlu 1 then 

44 one command(cad_l_parms) = .child(node_l_code] 

301 last_parmCent_l_next] = rSpildtnede, | coded: 

30 last_parm = Vcdu$gl_table + .child([node_|_codeJ; 

30 Hs ! Set the flag saying that parameter info has been supplied. 
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command(cmd_v_parms) = true; 


OO 


: If the parameter is required, then increment the minimum 
porstotee count. Required parameters cannot follow optional 


FRRRERK 


entity = .cdu$gl_table + .child[node_l_codeJ: blockl,byted; 


if .entitylent_v_valreq] then ( 

increment (command(cmd_v_minparm)) ; 

f .commandicmd_v_maxparm] gtru .command(cmd_v_minparm] then 
; cduSreport_semantic_error(msg(cdu$_invreqparm) ,1,.child[node_w_line]); 
end;); 


Cnode_k_noparameters]: 


! The NOPARAMETERS clause specifies that this verb or syntax 
: change takes no parameters. Set the flag saying that the 
! parameter info is relevent. The absence of a List of 

! entity blocks will tell DCL that there are no parameters. 


pejololelelelelolelefolealq) 
PADI E & 


command(cmd_v_parms] = true; 


riot sottotes 
NAUESWN (OO OONAUES AR (OOONOUE WO 


Cnode_k_prefix): 


WWWAAANIAIR PUP NIPUNIPUNPUY) 2 OS Se 


WAWNAANAANAANAAWw 


! Save the symbol prefix specified in the PREFIX clause as 
! an ASCIC string. 


BSE 


WANA 
DALwn—O0Gnoulwnr—o0oan 


(command(cmd_w prefix] = .variable_ptr = .command; 

chSmove('+.chiCdlnodeb_text_ length -child(node_b_text_length], 
-variable_ptr); 

variable_ptr = variable_ptr + 1+.child[node_b_text_length];); 


Cnode_k_qualifier): 


CONAUSWN OO 


: We have a QUALIFIER clause, which defines a qualifier. 
! Generate an entity block for it. 


(increment (qual_counter); 
cdu$generate_entity(.child,.qual_counter); 


' Form the eee tty blocks into a List, with the TRO of the 
! first one in the command block. 


SESSEESEE 
109099 C9 09 C8 NI NI NN SIN NN 


MEWN Ooo 


& 


RIPIPIPIMINPININIAINPIPINININIPIPININIPIPIPININININIPYPINYINIPIPINPIPIPIPIPIPIPIPIPYPIPIPIPOPYIPINPIPIPIPUIPINPINIPIPPINY 


PIAA 


if .qual_counter eqlu 1 then 
command(cmd_l_quals] = .child{node_l_code] 


co0000 
oon 


else 


s 


Last_qualCent_l_next] = ropiidtnede. | coded; 
last_qual = Tcdu$gl_table + .child{[node_|_code); 


! Set the flag saying that qualifier info has been supplied. 


AOEMAAMNMNIM MAI 
VVVVVVVVVVVVVVVVVUVVUVUVVVUVVUVUVVUVUVVVVVVVVVVVUVVVVVVVVVVVUUUUUUU 


ee ee ee ee ee ee ee ed ed ed dt od = oe dd = = = 


Be Se Se Se Se Se Se Se Be Se Se Se Se Se Se Se Se Se Fe Se Se Se Ge Se Se FF Se Se Se Se Se Se Se Se Se Se Se FHS FH Ss Se oe Se Se Se FH Se Se Se Se Sees ee Sees 


YY Yet 


mo Oe 
ooooono 
Ouewn— 


command(cmd_v_quals] = true;); 
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038 Cnode_k_noqualifiers]: 
39 ! The NOQUALIFIERS clause specifies that this verb or syntax 
00 ; change takes no qualifiers. Set the flag saying that the 
1 : qualifier info is relevent. The absence of a List of 
¢ ! entity blocks will tell DCL that there are no qualifiers. 
be command(cmd_v_quals] = true; 
Cnode_k_routine): 
! The ROUTINE clause specifies the name of a routine in the 
! user's program which is called to perform the command. 
! Set the handler type accordingly. 
(command(cmd_b_handler] = cmd_k_user; 
: Allocate a longword in the variable portion of the block 
Pace wane be filled in with the routine address by the 


command(cmd_w_image] = .variable_ptr - .command; 
variable ptr = .variable_ptr + 4; 


! Place the name of the routine after the longword, stored 
! as an ASCIC string. 


8 
] 
0 
2 
& 
5 
6 
7 
8 
9 
0 
4 ch$move(1+.child(node_b_text_length],child(node_b_text_length], 
5 -variable_ptrJ; 

$ variable_ptr = .variable_ptr + 1+.child[node_b_text_length];); 
: Cnode_k_synonym]: 

! These nodes were already processed up above. 

4 

5 

6 

7 

8 

9 

0 

1 


Cinrange, 
outrange): 


! Oops, we have some kind of internal error. 
signal (msg(cdu$_intinvnode)); 


VVVVVVVVVVVVVUVUVUVVUVUVUVUVVVUUVUVUVUVVUVUVUVVUVVUVVUVUUUUYU 
a a a a a a ke a ad ad dd 
a a ee a a a a a ed ad 


tes; 


a 


3 
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ea EE Ee ee 
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430-19 


2 1 
14-Sep-19 
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' Now we may need to do some additional rocess ing for DISALLOW clauses. 

! This involves creating an expression block which ORs together all of the 
' boolean expressions specified in DISALLOW clauses. We have counted the 
! number of clauses, so allocate space for the expression block. 


if .disallow_count nequ 0 then ( 
allocate_largest_table_block(exp_k_length + .disallow_count*4, expression); 


! Initialize the header of the expression block. 


expression exp.b_type] = block_k expression; 
expressionlexp_b_su typed = exp_k_or; 
expressionlLexp_w_flagsJ = 0; 
expressionlexp_w_tro_count] = 0; 


! Find all of the DISALLOW clauses and store the TRO of the 
! corresponding expression blocks as the operands of this OR block. 


begin 
in 
operand_list = expressionLexp_l_operand_list]: vectorl,long]; 

P scan_children(top_node,child, 
Pp f .childinode_w type] eqlu node_k_disallow then_( ; 
Pp operand_Tistl.expressionLexp_w_tro_count]] = .child{node_\_code]; 
: , increment (expressionLexp_w_tro_count)); 

F , 

end; 


! Set the size of the expression block in its header. 
set_table_block_size(exp_k_length + .disallow_count*4, expression); 

! Store the TRO of this new OR expression block in the command block. 
command(cmd_\_disallow] = .expression - .cdu$gl_table; 


! If there was an outputs clause, then we can process it now. 


if .outputs_node neqa 0 then ( 
command(cmd_w_outputs) = .variable_ptr - .command; 
-variable_ptr + 


cdu$generate_outputs_list(.top_node, .outputs_node, .variable_ptr); 
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INFO#250 L1:1141 
Referenced LOCAL symbol LAST_PARM is probably not initialized 
INFO#250 L1:1741 ay 
Referenced LOCAL symbol LAST_QUAL is probably not initialized 
TITLE GENCODE2 
-IDENT \V04-000\ 


-PSECT SPLITS,NOWRT ,NOEXE ,2 


00 52 43 4D SF 49 4C€ 43 00000 P.AAB: .ASCII ita MCR\<0> 
010E0007 00008 P.AAA: .LON 17694727 
Oopgooye" Bones «ADDRESS P.AAB 

00 00 54 43 45 4A 42 4F 00010 P.AAD: .ASCII \QGIEET)<0><0> 
68 po08 Bele P.AAC: .LONG 17694726 
0000000° ois »ADDRESS P.AAD 

00 00 54 43 45 4A 42 4F Q0020 P.AAF: .ASCII \QPIEST\<0><02 
010E0006 00028 P.AAE: .LONG 17694726 
00000000° 0002C «ADDRESS P.AAF 
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3 11 3 ! Once we have processed all of the clauses, we need to handle additional 
; 1 : cases which are implied by the clauses. 
: 1191 i If no command handler has been specified, then apply some defaults. 
: 1136 ‘ Object files can ~~ have user routine handlers, and CLI table 
3 1332 : images cannot. 
: 1195 2 if .command(cmd_b_handlerJ eglu cmd_knone then 
$ 1139 -doing verb then 
: 1197 4 F not cli$present(dtext("OBJECT')) then ( 
3 1198 4 command(cmd_b_handlerj] = cmd_k image: 
: 133 ? command(cmd_w_image] = .command(cmd_w_name] + 1; 
: 1201 ) else 
: : 4 command(cmd_b_handler] = cmd_k_same; 
: 1204 3 if cliS$present(dtext("OBJECT')) then ( 
$ 1205 if .command cad_p_nendter eqlu cmd_k_cli or 
; 1206 -commandicmd_b_handler] eqlu cmd_k_image then , 
3 ip sitA -— cdu$Sreport_semantic_error(msgtcdu$_routreq),1,.top_node[node_w_line]); 
; else 
3 1209 if .command(cmd_b_handler] eqlu cmd_k_user then 
3 1519 cduSreport_semantic_error(msgtcdu$_invrout),1,.top_node[node_w_line]); 
; isig ! Set the final size of the command block in its header. 
: iste set_table_block_size(.variable_ptr - .command, command); 
: 1518 ! Place the TRO of the new block in its top-level representation node. 
; 1218 top_node[node_l_code] = .command - .cdu$gl_table; 
: 1219 return; 
5 1220 
5 1221 1€ 
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CDUSGENERATE_ENTITY 
CDUSGENERATED EXPRESSION 
CDUSLOOKU 
CDUSR LP OORT SEMANTIC ERROR 
eLisP PRESENT, SGET_VM 
LOOKUP_VERB ue 
CDUSGL STABLE CDUS_IGNCLIFLAG 
CDUS_ FAVA GP ARM 
CDUS— INT NAVE ODE 
CDUS- ROUTREG. CDUS_INVROUT 
SCODES,NOWRT,2 
RTE nO RTO ~COMMAND . Save R2,R3,R4,R5,R6.- : 0829 
OT SALOU COUNT 3 0830 
pt RODE 3 
me: 3 i) 
ait), @ : ) 
1$ 3 
RO 3 
RO, DOING_VERB 3 
MMAND 3 0855 | 
#168 , 40¢SP) 3 
He yLBSSet _vM : 
S. 28 ~ : 
STA Tus : 
, LIBSSIGNAL 3 
QAMAND {oh R10 ; 0860. 
DOING VERB. 3$ ; 0861 | 
4$ 3 
#2, RO e H 
RO, 3(R10) : 
4(R10) 20(SP) : 0862 
a 6(R10) 3; 0863 
12(R10) + 0864 | 
8(R10) 3 
20(R10), 36(SP) ; 0865 
936(SP) : 
21(R10), 16(SP) ; 0866. 
3700. 916(sh) 
P.AAA > 0867 
i, CLISPRESENT : 
RO, 5$ : 
#2, RO : 
6 3 
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1 
50 1 A S$: MOVL #1, RO : 
0000" CF 0 88 O08 6$: MOVB RO CLITYBE : 
1¢ AE 10 AB 9A 0 MOVZBL 16(R11), 28(SP) + 0868 
3 AE iC AE 3C 909 MOVZWL @8(SP) ¢ VERB NA) | DSC : 
bi 40 AE OF Oooal OYA ICRI | VERE_NAAE DEC $ 0869 
000000006 00 , FB SOAG CALLS #1, COOKUP_VERB_TYPE : 
16 AA 0 90 000AB MOVE RO. (R19 : 
20 AE 1A AA SE OO0AF MOVAB 7 (R10), 32(SP) + 0870 
1¢ AA D4 000B4 CLRL (R10) : 
2 BE 84 00087 CLRW a32(SP) : 
18 AA B4 OOBA CLRW g4 (R10) : | 
56 20 AA . OBD MOVAB 32(R10), VARIABLE_PTR : 0874) 
66 6— €9 000C1 LBC BOING vERB, 10$ : 0886. 
1¢ «AE 1 ) 00C4 ADDL3 #1, 28(SP), RO 3 
10 AB 0 28 000C9 MOVC3 RO, 16(R115, 1(VARIABLE_PTR) : | 
1 AE 02 C1 000CF ADDL3 #2. 28(SP), t 0887, 
56 50 C1 00004 ADDL3 RO, VARIABLE_PTR, WORK_PTR : 
5A DD 00008 PUSHL R10 + 0891. 
34 A SF OOODA PUSHAB VERB_NAME_DSC 3 
000000006 00 02 FB 000DD CALLS #2, CDUSADD_VERB_NAME : 
59 08 A 00 OO0E4 MOVL 8(R11), CHICD + 0908 | 
37 13 OO0E8 7$: BEQL : | 
34 9 B1 OOOEA CMPW = (CHILD), #52 : 
C 12 OO0ED BNEQ : 
50 10 AS 9A OOOEF MOVZBL 16(CHILD), RO : 
50 D6 O00F3 INCL F 
10 a9 50 28 000F5 MOVC3 RO, 16(CHILD), (WORK_PTR) : 
1C AE 01 C1 OOOFA ADDL3 #1, 28(SP), RO : 
5? 50 CO OOOFF ADDL2 RO. WORK PTR : 
30 AE 10 Ad 9B 0010 MOVZ2BW 16(CHILDY, VERB_NAME_DSC F 
32 AE B4 0010 CLRW SOV + F 
34 AE 11 AD SE OO10A MOVAB 17(R9), VERB_NAME_DSC+4 : 
5A DD 0010F PUSHL R10 P- 
34 AE 9F 00111 PUSHAB VERB_NAME_DSC ; 
000000006 00 02 FB 00114 CALLS #2, CDUSADD VERB_NAME ; 
59 04 AS DO 0011B 8s: MOVL  4(CHILD), CAILD : 
C7 11 OO11F BRB : 
57 56 ce 00121 9S: SUBL2 VARIABLE_PTR, R7 > 0912 | 
57 01 00124 SUBB3 #1, R7, CVARIABLE_PTR) : | 
OA 11 00128 BRB 11§ + 0878 | 
1c AE 01 ci 0012A 10$: ADDL3 #1, 28(SP), RO : 0919 | 
10 AB 50 8 0012F MOVCS RO. 16(R115, (VARIABLE_PTR) : | 
56 SA A 01 11$: SUBW3 R10, VARIABLE PTR, 24(R10) : 0934 
50 66 9A 00139 MOVZBL (VARIABLE PTRJ, : 0925. 
oY 01 A046 9E 0013 MOVAB  1(RO)CVARTABLE.PTR], VARIABLE_PTR : 
59 08 A 06 00141 MOVL (R11), CHILD : 1141 
03 1 00148 12$:  BNEG 13$ : | 
0203 31 00147 BRW 46$ : 
69 AF 0014A 13$: CASEW (CHILD) #0, #53 : 
006C 006C OO14E 14$: <WORD 15$-14$.- : 
006¢ 006¢ 0156 15$-14$.- ; 
00D7 0001 0015€ 15$-14$.- : 
10D b06¢ 0166 15$-14$.- : 
1CE 19A O1GE 15$-14$.- : 
d06¢ b06¢ 0176 15$-14$.- : 
06¢ 06¢ 0017E 15$-14$.- : 
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491 '++ 

49 ! Description: This routine is called when an outputs List must be added 

49 ! to a command block. An outputs List is the result of an 

494 OUTPUTS clause in the CLD, which contains a List of 

495 res or qualifiers which specify output files. 

138 uch clauses are only needed for the old CLI interface. 

498 


1 

i 

i 

i 

' The outputs List consists of a counted sequence of bytes, 
: one for each item in the OUTPUTS clause. Each byte 

: contains the negative of the parameter number (for 
parameters), or the qualifier number (for qualifiers). 
1 

| 

i 

i 

i 

i 

i 

i 

i 


! Parameters: parent By reference, the parent of the outputs 
node, which has the parameters and qualifiers 
as its children. 

outputs By reference, the outputs node. 

outputs_Llist By reference, the location which is to 
receive the outputs List. 


Returns: By value, the length of the outputs List. 
Notes: 


GLOBAL ROUTINE cdu$generate_outputs_list(parent: ref node, 
outputs: ref node, 
outputs_list: pointer) 

= BEGIN 


local 
outputs_ptr: pointer, 
outputs_item: ref node, 
entity: ref node; 


! Scan each of the children of the outputs node, placing one byte in the 
! outputs List for each one. 


outputs rt = .outputs_list + 1; 
scan_children(outputs,outputs_item, 


Each output item specifies an entity which is an output of the 
command. The one thy is specified by its label (as given in a 
LABEL clause), or, if there is no label, by its name. Scan the 
children of the parent node looking for the one which represents 
the output entity. 


MESSI VEU SONS Sao neunvcoselTr 


5 at ot eh et et ot th ab od oh ah ad 


scan_children(parent,entity, 


if .entity{node_w_type] eqlu node_k_parameter or 
-entity[node_w type] eqlu node_k_qualifier then ( 


if cdu$lookup_child(.entity,node_k_label,.outputs_item{[node_b_text_length], 
outputs_itemE[ndde_t_text]) nega 0 then 


exitloo 
else if chSeql (outputs. itenLnode b_text jongth) .gutputs. ites node_t text], 
-entity(fhode_b_text_Tengthl,entity(node_t_text],%x'00") then 


ee eee eee ee ee eee ee eee eee eee ee ee we eee ee ee Po 
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; 548 P 1279 exitloop; 

> 549 P 1280 ); 

s 330 P 1281 ); 

3 99) P 1 a 

3 226 P 1 ! If we found the parameter or qualifier, then set up a pointer to 

3 e27 . : He ! the entity block generated for it. 

3 Dee P 1 6 if .entity neqa 0 then ( 

3 228 P 128 bind 

3 220 : ! ss entity_block = .cdu$gl_table + .entity[node_l_codeJ: blockl€,byteJ; 
; 559 P 1290 ! If the entity is a parameter, store the negative of its 

; 560 P 1291 ! number in the outputs List. If a qualifier, store the 

3 2) 4 1338 ! qualifier number. 

; 56 P 1294 outputs_ptr(0,0,8,1] = (if .entity_blockCent_b sg eqlu ent_k_parameter then 
: 564 P 1295 -.entity_blockCent_b_number] 
; 565 P 1296 else 

> 566 P 1297 ; -entity_blockCent_b_number]); 
; 567 P 1298 increment (outputs_ptr); 

; 568 P 1635 $ 

; 569 P 1300 ) else 

: 570 P 1301 $ 

; 2) 4 1306 § ! We didn't find the parameter or qualifier. 

5 278 P 1304 2 cdu$report_semantic_error(msg(cdu$_undefoutput),2,.outputs_item[node_w_line], 
: 574 P1305 2 outputs_Ttem[node_b_text_lengthJJ; 
3s 575 1306 § ); 

; 576 1307 . 

; ras iF 43 § ! Store the count of outputs at the front of the outputs List. 

3 ta 1319 3 outputs_list(0,0,8,0] = .outputs_ptr - .outputs_list - 1; 

; 581 1312 § ! Return the length of the outputs List. 

3 jee 1313 ; 

: 583 1314 2 return 1+.outputs_list(0,0,8,0); 

; 584 1315 2 

; 585 1316 1 END; 


.EXTRN CDUS_UNDEF OUTPUT 


00FC 00000 ENTRY CDUSGENERATE_OUTPUTS_LIST, Save R2,R3,R4,- ; 1246 
54 Oc ac 01 C1 0000 ADDL3 #1. OUTPUTS_LIST, OUTPUTS_PTR : 1260, 
50 08 aC 00 0000 MOVL ufpuTs, RO : 1306. 
33 08 Aad DO 0000B MOVL (RO), OUTPUTS_ITEM : 
7 04 AC DO 0000F MOVL PARENT, R7 : 
55 D 991 1$: TSTL TPUTS_ITEM ; 
2 1 01 BNEQ 5 
00 : 31 0001 BRW 1$ : 
56 08 A b9 O1A gs: MOVL 8(R7), ENTITY ; 
38 1 01 $: BEQL : 
0D 66 81 CMP 3s C ENTITY), #13 : 
05 13 000 BEQL : 
10 66 B81 000 CMPW 3s (ENTITY), #16 : 


wom a 


; Routine Size: 170 bytes, Routine Base: S$CODES + O045F 


11 | 
G NCODE2 18. $ep-1984 23:37: VAX-11 Bliss<-32 V age 20 
Vv vit Sit 1a-Sep-1 198 73 He $f DISKSVMSMASTER: cebu" OFAC SGENCODE?.B320% . (3 | 
28 12 a BNEQ 5$ ; 
| 11 AS OF A 4$: PUSHAB 17(OUTPUTS_ITEM F 
7E 10 AS 9A D MOVZBL wn TEM), =(SP) : 
4 3 SPS : 
000000006 00 Ge FB 00 CALLS a CDUSLOOKUP_.CHILD : 
D5 0003¢ TSTL RO F 
18 12 000 S NEQ $ : 
51 10 AS 9A 0004 MOVZBL 16(OUTPUTS_ITEM), R1 : 
50 10 A6 9A 00044 MOVZBL 16(ENTITY); RO : 
50 00 11. AS 31 20 0048 CMPCS R1, 17(OUTPUTS_ITEM), #0, RO, 17(ENTITY) : 
06 13 00036 BEQL BS : 
1 04 Ab 00 00052 S$: MOVL 4(ENTITY), ENTITY : 
£6 11 00096 BRB 3$ : 
6 D3 00058 6$ TSTL ENTITY : 
21 13 O005A BEQL 6 9$ : 
50 000000006 00 0¢ A6 Ci 9005¢ ADDL3 VecENTITY), CDUSGL_TABLE, RO : 
01 03 Aad 91 0006 CMPB =s«3(RO), #1 : 
09 12 00069 NEQ 7$ : 
50 14 AO 9A 0006B MOVZBL 20(RO), RO : 
50 50 CE O006F GL. RO, RO’ F 
04 11 00072 8$ F 
50 14 AO 9A 00074 7S: MOVZBL 20(RO), RO : 
84 50 90 00078 8$: MOVB RO, (OUTPUTS_PTR)+ : | 
16 11 00078 BRB 10$ : | 
10 AS 9F 0007D 9S: PUSHAB 16(OUTPUTS_ITEM) : 
7E 02 AS 3c 00080 MOVZWL 2(OUTPUTS_ ITEM), -(SP) : 
02 DD 00084 PUSHL #2 : 
000000006 8F DD 00086 PUSHL #cDUS UNDEF OUTPUT : 
000000006 00 04 FB 0008C CALLS CBUSREPORT_SEMANTIC_ERROR : 
55 06 AS B60 00093 10$: § MOVL a cOuTPUTS. ITEM, OUTPUTS_ITEM : 
FF79 31 00097 Rw 1 : 
54 Oc ac ce 0009A 11$ SUBL2 QUTPUTS LIST : 1310 
oc BC 54 01 8 00095 SUBB R4 “taStéurs LIST : | 
50 0c BC 9A OOOA MOVZBL SouTeuts _LIST, RO : 1314) 
50 06 000A7 INCL RO F 
04 000A9 E : 1316) 
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— 


: H 7 1317 1 !e4 

s 131 1 ! Description: This routine is called to generate a type block and the List 
$ es 1 i§ 1 of entity blocks which represent the heyvords. The entity 
: rs ; Y ' blocks are Linked together and hung off the type block. 

3 236 1 ¢ 1! Parameters: top_node By reference, the node that represents the 
; we 1 1 type definition. Its children are the 

: Be : 3 : } keyword nodes. 

; 39 6 Returns: Nothing. 

: 336 mie 

; 600 1330 1 

£03 H, 1 en cdu$generate_type(top_node: ref node) : novalue 

> 604 1382 Local 

; 605 1332 status: long, 

> 606 1336 type: pointer, 

3; 607 1337 variable_ptr: pointer, 

; 608 1338 § child: ref node, 

; 609 1339 keyword_counter: long initial(0), 

: ei? to § Last_block: pointer; 

; 61¢ 1348 

: oi7 \ee7 ! Allocate enough space to contain the largest possible type block. 

; oi? 1302 3 allocate_largest_table_block(type_k_length + type_k_max_name + type_k_max_prefix, type); 
3 617 1347 ! Begin by initializing the type block. This includes any fields that 

‘ oi3 1348 § ! don't depend on the Taterand tots representation. , 

3 620 1350 type(type_b_type] =_block_k_type; 

: 661 1384 type typed su cyged = tylienh. tree: 

; 622 1326 typeltype_w flags) = 0; 

; 623 135 typeltype_w_tro_count] = 1; R 

: oct 1328 type(type_w_name] = type(type_w_prefix] = 0; 

5 os6 1328 ! Set up to add information to the variable portion of the block. 

3 ° ; 1388 variable_ptr = type(type_z_variable); 

3 eo 1360 ! Add the type name to the type block as an ASCIC string. 

3 63 136 type(type_w_name] = .variable_ptr - .type:; 

; e383 1368 chBnove(t# top nadeCnode_b_ text. length, top_nodetnode.b_text_tength), 

; variable ptr); 

; tH ! $3 variable_ptr = variable ptr + 1+. top_node[node_b_text_length]; 

; e37 1307 ! Scan the children of the node representing the type definition. 

; oF , 139? scan_children(top_node,child, 

3 +) . 1371 ! Determine our action based on the type of child node. 

: org a 1398 selectoneu .child([node_w_type] of set 


| 


———————_—__—___— 
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; bee . } MN Cnode_k_prefix): 

; oe8 P 137 ! Save the ee prefix specified in the PREFIX clause as 

3 rok : : 4 ! an ASCIC string. 

; 649 P 137 (typeCtype_w prefix] = .variable_ptr - .type; 

; 650 P 1380 ch pove tas cehi dtnode b' text Lendth),childtnode_b_text_length], 
3 ee P 1381 -variable_ptr); 

: $26 . : § variable_ptr = .variable_ptr + 1+.child{[node_b_text_length];); 
: 654 P 1384 

; $2? ‘ ! +H Cnode_k_keyword]: 

; g25 P 1587 ' We have a keyword definition. Generate an entity block 

3 $28 4 ’ Hey ! for it. 

: 660 P 1390 Cincrement (keyword_counter); 

$ $67 . : 4 cdu$Sgenerate_entity(.child,.keyword_counter); 

; £08 P 1 98 ! If this is the first keyword, then store its TRO in the 

3: 664 P 1394 ' type block. Otherwise, chain this new entity block onto 

3 7? 4 133? ! the previous one to form a List. 

3 667 P 1397 if .keyword_counter eqlu 1 then 

; ose . 1338 2 : typel(type_l_keywords] = .child[node_l_code] 

3 else 

; 670 P 1400 ; lLast_blockCent_l_next] = Gp dinede, | coded; 

; 67] 4 1691 é last_block =.cdu$gl_table + .child([node_l_codej;); - 

; e783 4 1408 3 Cotherwise): 

; or? 4 seks !' Oops, we have some kind of internal error. 

3 677 P 1209 5 signal (msg(cdu$_intinvnode)); 

; 678 P 1408 § tes; 

B18} 8 

; 681 1411 2 ! Set the final size of the type block. 

; e883 1418 set_table_block_size(.variable_ptr - .type, type); 

; oe 4012 ! Place the TRO of the new block in its top-level representation node. 

; rtf 1417 top_node[node_|_code] = .type - .cdu$gl_table; 

: 1418 return; 

; 689 1419 

; 690 1420 

3: INFO#250 


L1:1409 
Referenced LOCAL symbol LAST_BLOCK is probably not initialized 
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SE 0c c2 00002 SuBL2 #12, $P : 
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; Routine Size: 228 bytes, Routine Base: S$CODE$ + 0509 


; 691 1421 1 
3; 14 ; 1 END 
; 69 14 0 ELUDOM 
-EXTRN LIBSSIGNAL 
H PSECT SUMMARY 
: Name Bytes Attributes 
: SGLOBALS 44 NOVEC. WRT. RD .NOEXE.NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; SPLITS NOVEC.NOWRT, RD »NOEXE,NOSHR, LCL, REL, afie'od bE bbe 
; SCODES 151 NOVEC.NOWRT, RD. EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; Library Statistics 
: eooceee= Symbols ooo-o--- Pages Processing 
5 File Total Loaded Percent Mapped Time 
: _$255$DUA28:(SYSLIBIL18.L32;1 18619 4 0 1000 00:01.8 
3; Information: 3 
3; Warnings: 0 
: Errors: 0 
; COMMAND QUALIFIERS 
3 BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:GENCODE2/0BJ=0BJ$:GENCODE2 MSRC$:GENCODE2/UPDATE=(ENH$: GENCODE 2) 
; Size: 1517 cgge + 49 data bytes 
; Run Time: 


; Elapsed stags Ore ig-9 
3 Lines/CPU Min: 237 

3 Lexemes/CPU-Min: 24467 

; “yu Used: 399 pages 
3; Compilation Complete 
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